home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / sillies / _dolphin / _runimaget < prev    next >
Encoding:
Text File  |  1992-06-23  |  1.3 KB  |  47 lines
  1. 10REM >!RunImage
  2. 20REM another demo borrowed from !MAN by PAUL VIGAY
  3. 30REM
  4. 40REM coding changes by Paul Kerry, sprites by Gill Harper 
  5. 50REM
  6. 60REM Honeypot software & graphics, April 1992
  7. 70REM
  8. 80task%=&4B534154
  9. 90path$="<Dolphin$Path>"
  10. 100SYS "Wimp_Initialise",200,task%,"Dolphin" TO ,task_handle%
  11. 110DIM pb% 256
  12. 120end%=FALSE
  13. 130X%=RND(1200):Y%=136:S=0:s=.2:M%=0
  14. 140s%=OPENIN(path$+".Sprites"):t%=EXT#s%+16:CLOSE#s%:DIM sprites% t%
  15. 150!sprites%=t%:sprites%!8=3
  16. 160SYS "OS_SpriteOp",&109,sprites%
  17. 170SYS "OS_SpriteOp",&10A,sprites%,path$+".Sprites"
  18. 200
  19. 210REPEAT
  20. 220  REPEAT
  21. 230    SYS "Wimp_Poll",,pb% TO reason%
  22. 240    IF reason%=0 AND RND(2500)=2500 THEN reason%=99
  23. 250  UNTIL reason% > 0
  24. 260:
  25. 270  CASE reason% OF
  26. 280:
  27. 290   WHEN 99 :
  28. 300     X%=8*RND(110)
  29. 310     SYS "OS_SpriteOp",&110,sprites%,"99",1,X%,Y%,X%+596,Y%+196
  30. 320       FOR S = 0 TO 6
  31. 330         SYS "OS_SpriteOp",&134,sprites%,STR$(INT(S)),X%,Y%,8
  32. 340         FOR ZZ=1 TO 5:WAIT:NEXT ZZ
  33. 360         WAIT:SYS "OS_SpriteOp",&134,sprites%,"99",X%,Y%,8
  34. 370       NEXT S
  35. 380:
  36. 390   WHEN 6:end%=TRUE
  37. 400   WHEN 8:SYS "Wimp_ProcessKey",pb%!24
  38. 410   WHEN 17,18
  39. 420          CASE pb%!16 OF
  40. 430            WHEN 0:end%=TRUE
  41. 440          ENDCASE
  42. 450 ENDCASE
  43. 460:
  44. 470UNTIL end%
  45. 500SYS "Wimp_CloseDown",task_handle%,task%
  46. 510END
  47.